home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Shareware Plus / Development / Akua Sweets 131 / Akua Sweets Examples / Misc / Universal Property < prev   
Encoding:
Text File  |  1999-03-04  |  652 b   |  33 lines  |  [TEXT/ToyS]
  1. property kasUniverseName : "Universal Property Test"
  2.  
  3. on run
  4.     -- Get our Universal Value
  5.     set n to 1 + GetUniversalValue(kasUniverseName)
  6.     
  7.     -- Make it nice :)
  8.     set nTxt to n & " time"
  9.     if (n > 1) then set nTxt to nTxt & "s"
  10.     
  11.     -- Show it
  12.     display dialog "We have been run " & nTxt & " since the last restart." buttons {"OK"} default button 1
  13.     
  14.     -- Update it
  15.     SetUniversalProperty(kasUniverseName, n)
  16. end run
  17.  
  18.  
  19. on GetUniversalValue(name)
  20.     try
  21.         set val to «event ÅkuUUVar» name
  22.     on error
  23.         set val to 0
  24.     end try
  25.     
  26.     return val
  27. end GetUniversalValue
  28.  
  29.  
  30. on SetUniversalProperty(name, n)
  31.     «event ÅkuUUVar» name given «class VObj»:n
  32. end SetUniversalProperty
  33.